home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 015a / do1003.zip / EDS.SCR < prev    next >
Text File  |  1991-12-30  |  7KB  |  306 lines
  1. * Simple communications program
  2. .co 15 0 clr
  3. /GOTO CDOK
  4. /CD C:\BIN
  5. :CDERROR
  6.    unable to change to home directory
  7. /GOTO 0
  8. :CDOK
  9. /SET DEFAULT CAPTURE.TXT
  10. /SET HOSTID xxxxx
  11. /SET SYSTEM RENEX
  12. * -------------------------------------------------------------------
  13. * C O N S T A N T S
  14. * -------------------------------------------------------------------
  15. /SETCOMDELAY 20
  16. /SET SYSTEM MAIL
  17. /SET HOMECSR ~001
  18. /SET ENTER ~013
  19. /SET TAB ~009
  20. /SET CLEARSCREEN ~027M
  21. /SET CLEAREOL ~024
  22. /SET RESET ~027~001
  23. /SET TIMEOUT 3
  24. /SET INITWAIT 10
  25. * -------------------------------------------------------------------
  26. /macros on comm.mac
  27. /initcom 1 2400 e 7 1 ""
  28. :MENU
  29. .clr
  30.  
  31. .clr co 14 0 go 1 3
  32.            ▓▓▓▓▓▓▓ ▓▓▓▓▓▓  ▓▓▓▓▓▓▓ ▓▓    ▓ ▓▓▓▓▓▓▓ ▓▓▓▓▓▓▓
  33.            ▓       ▓     ▓ ▓       ▓ ▓   ▓ ▓          ▓
  34.            ▓▓▓▓▓▓  ▓     ▓ ▓▓▓▓▓▓▓ ▓  ▓  ▓ ▓▓▓▓▓▓     ▓
  35.            ▓       ▓     ▓       ▓ ▓   ▓ ▓ ▓          ▓
  36.            ▓▓▓▓▓▓▓ ▓▓▓▓▓▓  ▓▓▓▓▓▓▓ ▓    ▓▓ ▓▓▓▓▓▓▓    ▓
  37.  
  38. .norm
  39.  
  40.            S.  Signon to E-mail
  41.            1.  Interactive Session
  42.            2.  Capture E-MAIL
  43.            3.  DOS Shell
  44.            0.  Exit
  45.  
  46. /GOTOC "                   Selection: " 123S0
  47. :1
  48. .clr
  49. /term "" 1 1 80 25
  50. /GOTO MENU
  51. :2
  52. /GETS FileName Default "    Capture File Name : " 40 UC
  53. /SET Default %FileName
  54. /EXIST %FileName
  55. :EXISTOK
  56. /SET OPEN W
  57. /GOTOC "%FileName Exists (A)ppend,(O)verlay? or (Q)uit?" OAQ
  58. :Q
  59. /GOTO MENU
  60. :A
  61. /SET OPEN A
  62. :O
  63. :ExistERROR
  64. .clr
  65. /SEND ~027
  66. /SEND ~001
  67. /CWAIT 3
  68. /GOSUB CheckWait
  69. /GOSUB FindTop
  70. /IF %Found NE OK OpenFile
  71. .bell clr co 14 0
  72.  
  73.     Unable to find top of document.  Please make sure you are in
  74.     VIEW mode.  You will be placed in interactive mode.  Press
  75.     »co 0 7«<Alt-X>»co 14 0« and start capture again once problem is corrected.
  76.  
  77. .norm page
  78. .clr
  79. /SEND ~027
  80. /SEND ~001
  81. /CWAIT 3
  82. /GOSUB CheckWait
  83. /GOTO 1
  84. :OpenFile
  85. /IF %Open EQ W AppendFile
  86. /WRITE %FileName OB
  87. /GOTO StartCapture
  88. :AppendFile
  89. /WRITE %FileName A
  90. :StartCapture
  91. /INC t
  92. /MATH i %t(@@)
  93. :CAPTURE
  94. /REPEAT
  95. /Look %i(@@) 2 72
  96. %Found
  97. /INC i
  98. /UNTIL %i(##) GT 23
  99. /Look 24 74 4
  100. /IF %Found EQ MORE CLOSE
  101. /Look 23 75 6
  102. /SET Line %Found
  103. /SEND ~027
  104. /SEND 8
  105. /CWAIT 5
  106. /GOSUB CheckWait
  107. /GOSUB FindTop
  108. /IF %Found EQ OK 0
  109. /inc t
  110. /Look %t(@@) 75 6
  111. /MATH i %t(@@)
  112. /IF %Found EQ %Line CAPTURE
  113. /INC i
  114. /GOTO CAPTURE
  115. :CLOSE
  116. /Close
  117. .bell
  118. /Edit %FileName
  119. /GOTO 1
  120. :FindTop
  121. * Search for ruler line + 1 Line
  122. /Math t 1
  123. /REPEAT
  124. /inc t
  125. /Look %t(@@) 2 4
  126. /if  %Found eq "...." TCont
  127. /SET Found OK
  128. /GOTO Top2
  129. :TCont
  130. /if  %t(@@) GT 23 Top2
  131. /set Found QUIT
  132. :Top2
  133. /UNTIL %Found IN "OK,QUIT"
  134. /RETURN
  135. :3
  136. »co 0 7« DOS Shell -- Type "/exit" to return to DO »norm«
  137. /INTERACTIVE
  138. /GOTO MENU
  139. :S
  140. * -------------------------------------------------------------------
  141. * Signon to E-MAIL
  142. * -------------------------------------------------------------------
  143. /IF %HostID eq <SignonID> START
  144. .bell bell clr
  145.  
  146.   ┌──────────────────────────────────────────────────────────────────┐
  147.   │ NOTE: Change <SignonID> before executing script                  │
  148.   └──────────────────────────────────────────────────────────────────┘
  149.  
  150. .bell bell page
  151. /GOTO END
  152. :START
  153. * -------------------------------------------------------------------
  154. * Set the current password.  If PASSWORD.TXT does not exist,
  155. * prompt for the current password.
  156. * -------------------------------------------------------------------
  157. /SET PasswordFile PASSWORD.TXT
  158. /SET Pattern $$$$#$$$
  159. /EXIST %PasswordFile
  160. :ExistError
  161. /SET default ""
  162. .clr bell go 1 5
  163.  
  164.     Password file not found
  165.  
  166. /GETS Password Default "    Enter Password : " 8 uc
  167. /if  %Password ne "" ExistError
  168. /PASSWORD %PasswordFile %Password
  169. :ExistOK
  170. * -------------------------------------------------------------------
  171. * SIGNON ID's and PASSWORD
  172. * (NOTE: will be replaced by routine to check for expired passwords
  173. * -------------------------------------------------------------------
  174. :setid
  175. /PASSWORD %PasswordFile
  176. /SET HOSTPW %password
  177. :TOP
  178. .co 15 0 clr
  179. :ClearScreen
  180.  
  181.     Starting Signon Process . . .
  182.  
  183. /SEND %ClearScreen
  184. /GOSUB CheckWait
  185. * -------------------------------------------------------------------
  186. *  Press the <Enter> key and see what happens
  187. * -------------------------------------------------------------------
  188. :PressEnter
  189. * Make sure terminal is not hung up
  190. /SEND %Reset
  191. /GOSUB CheckWait
  192. /SEND %ENTER
  193. :WAIT1
  194. /GOSUB CheckWait
  195. * -------------------------------------------------------------------
  196. * EDSNET Screen: looks for portion of welcome message
  197. * -------------------------------------------------------------------
  198. /LOOK 2 12 5
  199. /IF %found eq SAIPC L2
  200. /SEND EDSNET%ENTER
  201. /GOTO WAIT1
  202. :L2
  203. * -------------------------------------------------------------------
  204. * LOGON Screen: Looks for LOGON-ID field.
  205. *               Will eventually have to handle Password change
  206. *               Requirement
  207. * NOTE: ID and Password padded to 8 characters
  208. * -------------------------------------------------------------------
  209. /LOOK 17 6 8
  210. /IF %found eq LOGON-ID L3
  211. /SEND %HOMECSR
  212. /CWAIT 1
  213. /SEND %HOSTID(L8)
  214. /CWAIT 1
  215. /SEND %HOSTPW(L8)
  216. /CWAIT 1
  217. /SEND %Tab
  218. /CWAIT 1
  219. /SEND %Tab
  220. /CWAIT 1
  221. /SEND %System
  222. /CWAIT 1
  223. /SEND %ClearEOL
  224. /CWAIT 1
  225. /SEND %Enter
  226. /CWAIT 3
  227. /GOTO WAIT1
  228. :L3
  229. * -------------------------------------------------------------------
  230. * NETMENU Screen
  231. * -------------------------------------------------------------------
  232. * Check to see that we did not receive UNAVAILABLE message
  233. /LOOK 23 19 11
  234. /IF %Found EQ UNAVAILABLE L3.1
  235. .clr go 1 10 co 14 0
  236.  
  237.                E-MAIL is UNAVAILABLE, Press <Esc> to QUIT
  238.  
  239. /PAUSE 240
  240. /SEND LOGOFF%Enter
  241. /GOTO WAIT1
  242. :L3.1
  243. /LOOK 1 2 4
  244. /IF %FOUND EQ TERM L3.2
  245. /SEND %HomeCsr
  246. /CWAIT 1
  247. /SEND %System
  248. /CWAIT 1
  249. /SEND %ClearEOL
  250. /CWAIT 1
  251. /SEND %Enter
  252. /GOTO WAIT1
  253. :L3.2
  254. * -------------------------------------------------------------------
  255. * EDS net invalid -- error problem
  256. * -------------------------------------------------------------------
  257. * Check to see that we did not receive UNAVAILABLE message
  258. /LOOK 2 2 8
  259. /IF %Found EQ SAIPC1A/ L4
  260. .clr go 1 10 co 14 0
  261.  
  262.                EDSNET Problem!  Press <esc> to terminate . . .
  263.  
  264. /PAUSE 60
  265. /SEND LOGOFF%Enter
  266. /GOTO WAIT1
  267. :L4
  268. *-----------------------------------------
  269. * Check for E-mail line
  270. *-----------------------------------------
  271. /LOOK 1 2 4
  272. /IF %FOUND EQ MAIL L4
  273. /SEND %Enter
  274. /CWAIT 3
  275. /GOSUB CheckWait
  276. /GOTO 1
  277. /GOTO StartEmail
  278. :StartEmail
  279. /GOTO 1
  280. * -------------------------------------------------------------------
  281. * Check out << wait >> from PCI or RENEX
  282. * -------------------------------------------------------------------
  283. :CheckWait
  284. /IF %System eq PCI RENEX
  285. /REPEAT
  286. /CWAIT %Timeout
  287. /LOOK 1 73 4
  288. /UNTIL %found ne wait
  289. /RETURN
  290. :RENEX
  291. /REPEAT
  292. /CWAIT %Timeout
  293. /UNTIL {X},{Y} ne 80,25 wait
  294. /RETURN
  295.  
  296. :0
  297. /CD HOME
  298. :CDERROR
  299.     Unable to change to %HOME
  300. :CDOK
  301. /CLOSECOM FALSE
  302. /macros off
  303. .co 7 0 clr
  304. /ENDEXEC CLEAR
  305. * end of script
  306.